home *** CD-ROM | disk | FTP | other *** search
/ Remix Doll 3: Dirty Sally / Remix Doll 3: Dirty Sally.iso / drtyslly.exe / SHARED.DXR / 04981_TMoov.ls < prev    next >
Encoding:
Text File  |  1995-02-11  |  1.1 KB  |  64 lines
  1. property ancestor
  2.  
  3. on birth me, vSprNum, vID
  4.   set ancestor to NewObj("TMyView", vSprNum, vID)
  5.   mIMoov(me)
  6.   return me
  7. end
  8.  
  9. on mIMoov me
  10.   mPuppetOn(me)
  11.   mStMovRate(me, 0)
  12. end
  13.  
  14. on mStMovRate me, vRate
  15.   set the movieRate of sprite mGtSprNum(me) to vRate
  16. end
  17.  
  18. on mGtMovRate me
  19.   return the movieRate of sprite mGtSprNum(me)
  20. end
  21.  
  22. on mStMovTime me, vTime
  23.   set the movieTime of sprite mGtSprNum(me) to vTime
  24. end
  25.  
  26. on mGtMovTime me
  27.   return the movieTime of sprite mGtSprNum(me)
  28. end
  29.  
  30. on mStMovTimeBgn me
  31.   mStMovTime(me, 0)
  32. end
  33.  
  34. on mStMovTimeEnd me
  35.   set aEndTime to mGtMovDuration(me)
  36.   mStMovTime(me, aEndTime)
  37. end
  38.  
  39. on mStStartTime me, vStartTime
  40.   set the startTime of sprite mGtSprNum(me) to vStartTime
  41. end
  42.  
  43. on mGtStartTime me
  44.   return the startTime of sprite mGtSprNum(me)
  45. end
  46.  
  47. on mStStopTime me, vStopTime
  48.   set the stopTime of sprite mGtSprNum(me) to vStopTime
  49. end
  50.  
  51. on mGtStopTime me
  52.   return the stopTime of sprite mGtSprNum(me)
  53. end
  54.  
  55. on mGtMovDuration me
  56.   set aMovCastNum to mGtCastNum(me)
  57.   return the duration of cast aMovCastNum
  58. end
  59.  
  60. on mStDirectToStage me, vDirect
  61.   set aMovCastNum to mGtCastNum(me)
  62.   set the directToStage of cast aMovCastNum to vDirect
  63. end
  64.